www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\admin\friendLink\friendLink_Manage.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
projectRootPath = "../../" '相对当前应用程序根的位置
%>
<!-- #include file ="../include/checkPurview.asp"-->
<!--#include file="../../ConnDB.asp"-->
<!-- #include file="../include/Function.Manage.Config.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="robots" content="noindex,nofollow" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>友情链接管理</title>
<link rel="stylesheet" type="text/css" href="../themes/base.css"/>
<link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" />
</head>
<body id="bodyBg1">
<br />
<a href="friendLink_Manage.asp">友情链接管理</a> | <a href="friendLink_Add.asp">添加友情链接</a>
<hr class="Nav-hr" />
<br />
<dl class="manageContent">
<dt>友情链接管理</dt>
<dd>
<br />
<%
Set rsFriendLinkManage=Server.CreateObject("Adodb.Recordset")
sql="Select * from deep_FriendLink order by flinkType,forderID,fid"
rsFriendLinkManage.open sql,conn,0,1
if rsFriendLinkManage.Eof and rsFriendLinkManage.Bof then
Response.Write("<p>暂时没有友情链接！！！</p>")
else
%>
<table cellpadding="3" cellspacing="1" border="0" width="98%" align="center" class="tableBoder01">
<tr >
<th width="50">序号</th>
<th >站点名称</th>
<th width="100" >友情链接类型</th>
<th width="100" >是否审核</th>
<th width="120" >站点LOGO</th>
<th width="80" >管 理</th>
</tr>
<%
i=0
while (Not rsFriendLinkManage.Eof)
i=i+1
if (left( rsFriendLinkManage("flogoUrl") ,7 )="http://" ) then
FriendSite_logoUrl=rsFriendLinkManage("flogoUrl")
else
FriendSite_logoUrl= projectRootPath & "uploadfile/friendlink/" & rsFriendLinkManage("flogoUrl")
end if
%>
<tr onmouseover="this.bgColor='#f0f8ff';" onmouseout="this.bgColor='#FFFFFF';">
<td ><%=i%></td>
<td ><a href="<%=rsFriendLinkManage("furl")%>" target="_blank" title="站点简介：<%=rsFriendLinkManage("ftip")%>
站点URL：<%=rsFriendLinkManage("furl")%>"><%=rsFriendLinkManage("fname")%></a></td>
<td ><%if rsFriendLinkManage("flinkType")=0 then Response.Write("<font color='#717171'>文字</font>") else Response.Write("图片")%>
</td>
<td ><%if rsFriendLinkManage("fisView")=1 then response.Write("审核") else response.Write("<font color='#ff0000'>未审核</font>") end if%></td>
<td ><%if rsFriendLinkManage("flogoUrl")<>"" then%><img src="<%=FriendSite_logoUrl%>" width="88" height="31" /><%end if%></td>
<td ><a href="friendLink_Update.asp?id=<%=rsFriendLinkManage("fid")%>">修改</a> |
<%if rsFriendLinkManage("fisSys")=0 then%>
<font color="#CCCCCC">删除</font>
<%else%>
<a href="friendLink_DEL.asp?id=<%=rsFriendLinkManage("fid")%>" onclick="return confirm('删除后将不能恢复，你确定删除么？')">删除</a>
<%end if%></td>
</tr>
<%
rsFriendLinkManage.MoveNext
wend
%>
</table>
<%
end if
rsFriendLinkManage.close
Set rsFriendLinkManage =Nothing
Call CloseConnDB()
%>
<br />
</dd>
</dl>
<br />
</body>
</html>